home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / rexx / magiccx / pasrevision.ged < prev    next >
Text File  |  1995-02-13  |  3KB  |  119 lines
  1. /* $VER: 0.9, ©1993 Dietmar Eilert. Empty GoldED macro */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  9. OPTIONS FAILAT 6                            /* ignore warnings         */
  10. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  11.  
  12.  
  13. /* ------------------------- INSERT YOUR CODE HERE: -------------------- */
  14.  
  15. /*
  16.     $VER: PASRevision.ged 1.0 (12.8.94)
  17.  
  18.     Revises an Pascal/Modula source code
  19.     The default Port of MagicCX is assumed to be MCX.
  20.     This script was written for GoldED, but I think it can
  21.     be easily ported to other editors having an ARexx-Port.
  22.  
  23.     Written by :     Michael Bergmann
  24.  
  25.     (Kai`s note: Please excuse the German comments
  26.                  I added the PUBSCREEN Entry, hope it works!)
  27. */
  28.  
  29.  
  30.  
  31. /*
  32.    Standard defines for INITIALVER INITIALREV INSERTBEFORE AND INSERTAFTER
  33.    (Please add complete paths for the files!)
  34. */
  35.  
  36. INITVER        = 1
  37. INITREV        = 0
  38. INSBEFORE    = PASInsertBeforeHeader
  39. INSAFTER    = PASInsertAfterHeader
  40.  
  41.  
  42. 'QUERY ANYTEXT'
  43.  
  44. if (result = 'TRUE') then
  45.  
  46.     DO
  47.  
  48.         'QUERY DOC VAR OLDNAME'
  49.  
  50.         filename = oldname
  51.         RevName =  filename
  52.  
  53.          'SAVE ALL'
  54.  
  55.     'QUERY MODIFY'
  56.  
  57.     RevDone = RESULT
  58.     IF RevDone = 'FALSE' then
  59.         DO
  60.  
  61.             QUOTE = '22'X
  62.  
  63.             OPTIONS RESULTS
  64.             ADDRESS 'MCX' REVISE 'FILE='QUOTE''RevName''QUOTE 'MODE=PAS' 'PUBSCREEN=GOLDED' 'INITIALVER='INITVER 'INITIALREV='INITREV 'INSERTBEFORE='INSBEFORE 'INSERTAFTER='INSAFTER
  65.             RevDone = RESULT
  66.                 if RevDone = 'TRUE' then
  67.                 open filename
  68.                 'UNLOCK'
  69.                 exit
  70.  
  71.         end
  72.     end
  73.  
  74. else
  75.  
  76.     DO
  77.         'UJUMP'                                                                                          /* Cursor in NULL-Position */
  78.         'TEXT STAY T "/**                                 °°°°°°   °°°°°°                         **/ "' /*    ;-)  Bug umgangen: Es werden unter Arexx keine LEEREN Fenster gespeichert */
  79.  
  80.         'SAVE ALL ASK'                   /* File anlegen, sonst meckert KCX ! */
  81.     end
  82.  
  83.         DO
  84.  
  85.         QUERY DOC VAR NEWNAME            /* Filename u. Pfad besorgen */
  86.  
  87.         SAVE
  88.         filename = newname
  89.         RevName = filename
  90.  
  91.  
  92.         QUOTE = '22'X
  93.  
  94.         OPTIONS RESULTS
  95.         ADDRESS 'MCX' REVISE 'FILE='QUOTE''RevName''QUOTE 'MODE=PAS' 'PUBSCREEN=GOLDED' 'INITIALVER='INITVER 'INITIALREV='INITREV 'INSERTBEFORE='INSBEFORE 'INSERTAFTER='INSAFTER
  96.         RevDone = RESULT
  97.  
  98.         IF RevDone = 'TRUE' THEN
  99.                open filename
  100.  
  101.         'GOTO BOF'
  102.         'SMARTCR'                       /*  Cursor bei EOF+2 plazieren */
  103.         'SMARTCR'
  104.  
  105.  
  106.         end
  107.  
  108.  
  109. /* ---------------------------- END OF YOUR CODE ----------------------- */
  110.  
  111. 'UNLOCK' /* VERY important: unlock GUI */
  112. EXIT
  113.  
  114. SYNTAX:
  115.  
  116. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  117. 'UNLOCK'
  118. EXIT
  119.